Interactive Media Design Review 1999/Interactive Media Design Review 1999.iso/mac/files/ID99MENU.DIR/00137.ls

Text File | 1999-04-29 | 541 b | 32 lines

property s
global webpages, currtitle

on beginSprite me
  s = me.spriteNum
end

on prepareFrame me
  if currtitle = 0 then
    set the member of sprite s to "dim web"
    exit
  end if
  thepage = getAt(webpages, currtitle)
  if thepage <> EMPTY then
    set the member of sprite s to "web button"
  else
    set the member of sprite s to "dim web"
  end if
end

on mouseUp
  if currtitle = 0 then
    exit
  end if
  thepage = getAt(webpages, currtitle)
  if thepage = EMPTY then
    exit
  end if
  stopjuror()
  gotoNetPage(thepage)
end